Type Timer
	Field start
	Field timeOut
End Type



; Set a timer:
Function SetTimer.Timer (TimeOut)
	Local t.Timer = New Timer
	t\start   = MilliSecs ()
	t\timeOut = t\start + TimeOut
	Return t
End Function



; Check for timeout:
Function TimeOut (test.Timer)
	If test <> Null
		If test\timeOut < MilliSecs ()
			Delete test
			Return True
		EndIf 
	EndIf
	Return False
End Function
;~IDEal Editor Parameters:
;~C#Blitz3D